home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoScripter.cpt / AutoScripter / card_3061.txt < prev    next >
Text File  |  1988-03-05  |  28KB  |  1,227 lines
  1. -- card: 3061 from stack: in
  2. -- bmap block id: 2487
  3. -- flags: 0000
  4. -- background id: 2786
  5. -- name: Main Card
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=456 top=28 right=63 bottom=490
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1020 / 1020
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: help
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect iris open
  23.   push this card
  24.   go to card "help"
  25. end mouseUp
  26.  
  27.  
  28. -- part 4 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=409 top=29 right=62 bottom=447
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 11045 / 11045
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Home
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   if field "script-it" is empty then
  43.     go "Home"
  44.     exit mouseup
  45.   else
  46.     answer "Are you sure you want to abandon the script?" with "No" or "Yes"
  47.     if it is "Yes" then
  48.       go "home"
  49.       exit mouseUp
  50.     end if
  51.   end if
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 5 (button)
  57. -- low flags: 00
  58. -- high flags: 8003
  59. -- rect: left=378 top=93 right=115 bottom=478
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Done
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   global scriptName
  71.   put "end " & scriptName & return after field "script-it"
  72.   answer "Would you like to save this as a text file?" with "Yes" or "No"
  73.   if it is "Yes" then
  74.     put NewFileName("Save Script as?","") into targetFile
  75.     if targetFile is not empty then
  76.       open file targetFile
  77.       write field "script-it" to file targetFile
  78.     end if
  79.   end if
  80.   answer "Ready for you to cut and paste" with "Oh Boy!"
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 54 (button)
  86. -- low flags: 00
  87. -- high flags: 8003
  88. -- rect: left=210 top=288 right=309 bottom=285
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: new script
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   answer "Are you sure you're done with this script?" with "Yes!" or "No"
  100.   if it is "Yes!" then
  101.     put empty into field "script-it"
  102.     openStack
  103.   end if
  104. end mouseUp
  105.  
  106.  
  107.  
  108.  
  109. -- part 6 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=372 top=30 right=61 bottom=409
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 19678 / 19678
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: About
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   show card field "info"
  124.   play "hi"
  125.   wait until the mouseClick
  126.   hide card field "info"
  127. end mouseUp
  128.  
  129.  
  130. -- part 7 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=311 top=275 right=310 bottom=343
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 1006 / 1006
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: file commands
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.  
  145. end mouseup
  146.  
  147.  
  148.  
  149.  
  150. -- part 8 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=43 top=115 right=133 bottom=83
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: add
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   ask "Add what?"
  165.   put it into number
  166.   ask "To container:"
  167.   put it into holder
  168.   put "add" && number && "to" && holder & return after field "Script-it"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 9 (button)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=34 top=136 right=150 bottom=98
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: answer
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   ask "Type your question:"
  188.   put it into query
  189.   put "answer" && quote & query & quote && "with " into holder
  190.   repeat 3 times
  191.     ask "With?"
  192.     if it is empty then
  193.       delete last word of holder
  194.       exit repeat
  195.     end if
  196.     put quote & it & quote && "or " after holder
  197.   end repeat
  198.   put holder & return after field "Script-it" of card "main card"
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 10 (button)
  204. -- low flags: 00
  205. -- high flags: 0000
  206. -- rect: left=40 top=156 right=170 bottom=89
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: ask
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   ask "What question do you want to ask?"
  218.   put it into query
  219.   put "ask" && quote & query & quote & return into holder
  220.   put holder after field "script-it" of card "main card"
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 11 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=39 top=177 right=191 bottom=87
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: beep
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   ask "How many times should I beep?" with "1"
  240.   put "beep" && it & return after field "script-it" of card "main card"
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 12 (button)
  246. -- low flags: 00
  247. -- high flags: 0000
  248. -- rect: left=21 top=199 right=214 bottom=110
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: choose tool
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   show card field "tools"
  260.   ask "Which tool do you wish to choose?"
  261.   put "choose" && it &&  "tool" & return after field "script-it" of card "main card"
  262.   hide card field "tools"
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 13 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=37 top=219 right=235 bottom=92
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: click
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   put "click at with key" & return after field "script-it" of card "main card"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 14 (button)
  287. -- low flags: 00
  288. -- high flags: 0000
  289. -- rect: left=31 top=240 right=254 bottom=100
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: convert
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   ask "Convert to what?"
  301.   put "convert to " & it & return after field "Script-it" of card "main card"
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 16 (field)
  307. -- low flags: 81
  308. -- high flags: 0004
  309. -- rect: left=115 top=218 right=313 bottom=402
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 0
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: tools
  318.  
  319.  
  320. -- part 17 (button)
  321. -- low flags: 00
  322. -- high flags: 0000
  323. -- rect: left=116 top=117 right=132 bottom=180
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: delete
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   ask "What do you want to delete?"
  335.   put "delete" && it & return after field "script-it" of card "Main card"
  336. end mouseUp
  337.  
  338.  
  339.  
  340. -- part 18 (button)
  341. -- low flags: 00
  342. -- high flags: 0000
  343. -- rect: left=201 top=119 right=131 bottom=265
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: repeat
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   global holder
  355.   put "repeat " into holder
  356.   push this card
  357.   visual effect wipe right
  358.   go to card "loops"
  359. end mouseUp
  360.  
  361.  
  362.  
  363. -- part 19 (button)
  364. -- low flags: 00
  365. -- high flags: 0000
  366. -- rect: left=299 top=120 right=134 bottom=343
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 1
  370. -- font id: 0
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: New Button
  375. ----- HyperTalk script -----
  376. on mouseUp
  377.   ask "What Handler/Command do you want passed on?"
  378.   put "pass" && it & return into holder
  379.   put holder after field "script-it" of card "main card"
  380. end mouseUp
  381.  
  382.  
  383.  
  384. -- part 20 (button)
  385. -- low flags: 00
  386. -- high flags: 0000
  387. -- rect: left=398 top=121 right=134 bottom=444
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 0
  392. -- text size: 12
  393. -- style flags: 0
  394. -- line height: 16
  395. -- part name: set
  396. ----- HyperTalk script -----
  397. on mouseUp
  398.   global holder
  399.   put "set " into holder
  400.   push this card
  401.   visual effect wipe right
  402.   go to card "properties"
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 21 (button)
  408. -- low flags: 00
  409. -- high flags: 0000
  410. -- rect: left=111 top=137 right=151 bottom=183
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: divide
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   ask "Divide what?"
  422.   put it && "by"into holder
  423.   ask "By what?"
  424.   put it into number
  425.   put "divide" && holder && number & return after field "script-it" of card "main card"
  426. end mouseUp
  427.  
  428.  
  429.  
  430. -- part 22 (button)
  431. -- low flags: 00
  432. -- high flags: 0000
  433. -- rect: left=126 top=157 right=171 bottom=169
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 1
  437. -- font id: 0
  438. -- text size: 12
  439. -- style flags: 0
  440. -- line height: 16
  441. -- part name: do
  442. ----- HyperTalk script -----
  443. on mouseUp
  444.   ask "Do What??"
  445.   put "do" && it & return after field "script-it" of card "main card"
  446. end mouseUp
  447.  
  448.  
  449.  
  450. -- part 23 (button)
  451. -- low flags: 00
  452. -- high flags: 0000
  453. -- rect: left=109 top=177 right=191 bottom=183
  454. -- title width / last selected line: 0
  455. -- icon id / first selected line: 0 / 0
  456. -- text alignment: 1
  457. -- font id: 0
  458. -- text size: 12
  459. -- style flags: 0
  460. -- line height: 16
  461. -- part name: doMenu
  462. ----- HyperTalk script -----
  463. on mouseUp
  464.   ask "Do which menu command?"
  465.   put "doMenu " & quote & it & quote & return after field "script-it" of card "main card"
  466. end mouseUp
  467.  
  468.  
  469.  
  470. -- part 24 (button)
  471. -- low flags: 00
  472. -- high flags: 0000
  473. -- rect: left=123 top=200 right=214 bottom=171
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 1
  477. -- font id: 0
  478. -- text size: 12
  479. -- style flags: 0
  480. -- line height: 16
  481. -- part name: end
  482. ----- HyperTalk script -----
  483. on mouseUp
  484.   ask "Enter Handler-Name to end:"
  485.   put "end" && it & return after field "script-it" of card "main card"
  486. end mouseUp
  487.  
  488.  
  489.  
  490. -- part 25 (button)
  491. -- low flags: 00
  492. -- high flags: 0000
  493. -- rect: left=122 top=220 right=233 bottom=171
  494. -- title width / last selected line: 0
  495. -- icon id / first selected line: 0 / 0
  496. -- text alignment: 1
  497. -- font id: 0
  498. -- text size: 12
  499. -- style flags: 0
  500. -- line height: 16
  501. -- part name: exit
  502. ----- HyperTalk script -----
  503. on mouseUp
  504.   ask "Enter Handler-Name to exit:"
  505.   put "exit" && it & return after field "script-it" of card "main card"
  506. end mouseUp
  507.  
  508.  
  509.  
  510. -- part 26 (button)
  511. -- low flags: 00
  512. -- high flags: 0000
  513. -- rect: left=121 top=240 right=255 bottom=172
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 0 / 0
  516. -- text alignment: 1
  517. -- font id: 0
  518. -- text size: 12
  519. -- style flags: 0
  520. -- line height: 16
  521. -- part name: if
  522. ----- HyperTalk script -----
  523. on mouseUp
  524.   answer "What kind of 'if' construct?" with "Simple" or "If-Then" or "With Else"
  525.   put it into ifKind
  526.   ask "If What?"
  527.   put it into holdOne
  528.   if ifKind is "Simple" then
  529.     put "if" && holdOne & return after field "script-it" of card "main card"
  530.     exit mouseUp
  531.   end if
  532.   if ifKind is "If-Then" then
  533.     put "if" && holdOne && "then" & return into holdTwo
  534.     repeat until it is empty
  535.       ask "Then What?"
  536.       put it into holdTre
  537.       if holdTre is empty then exit repeat
  538.       put holdTre & return after holdTwo
  539.     end repeat
  540.     put holdTwo & "end if" after field "script-it" of card "main card"
  541.     exit mouseUp
  542.   end if
  543.   put "if" && holdOne && "then" & return into holdFor
  544.   repeat until it is empty
  545.     ask "Then What?"
  546.     put it into holdFiv
  547.     if holdFiv is empty then exit repeat
  548.     put holdFiv & return after holdFor
  549.   end repeat
  550.   ask "Else What?"
  551.   put "else" & return into holdSix
  552.   put it & return after holdSix
  553.   answer "Anything Else?" with "Yup" or "Nope"
  554.   if it is "Nope" then
  555.     put holdSix & "end if" after holdFor
  556.     put holdFor after field "script-it" of card "main card"
  557.   else
  558.     repeat until it is empty
  559.       ask "What Else?"
  560.       put it into holdSev
  561.       if holdSev is empty then exit repeat
  562.       put holdSev & return after holdSix
  563.     end repeat
  564.   end if
  565.   put holdSix after holdFor
  566.   put holdFor & "end if" & return after field "script-it" of card "main card"
  567. end mouseUp
  568.  
  569.  
  570.  
  571.  
  572.  
  573. -- part 27 (button)
  574. -- low flags: 00
  575. -- high flags: 0000
  576. -- rect: left=206 top=137 right=150 bottom=262
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 0 / 0
  579. -- text alignment: 1
  580. -- font id: 0
  581. -- text size: 12
  582. -- style flags: 0
  583. -- line height: 16
  584. -- part name: find
  585. ----- HyperTalk script -----
  586. on mouseUp
  587.   put "find " into holder
  588.   answer "Find String, Word, or Characters?" with "string" or "word" or "chars"
  589.   if it is "string" then
  590.     ask "Enter string to find:"
  591.     put quote & it & quote & return after holder
  592.     put holder after field "script-it" of card "main card"
  593.   else
  594.     ask "Enter word or chars to find:"
  595.     put quote & it & quote & return after holder
  596.     put holder after field "script-it" of card "main card"
  597.   end if
  598. end mouseUp
  599.  
  600.  
  601.  
  602. -- part 28 (button)
  603. -- low flags: 00
  604. -- high flags: 0000
  605. -- rect: left=205 top=160 right=174 bottom=256
  606. -- title width / last selected line: 0
  607. -- icon id / first selected line: 0 / 0
  608. -- text alignment: 1
  609. -- font id: 0
  610. -- text size: 12
  611. -- style flags: 0
  612. -- line height: 16
  613. -- part name: get
  614. ----- HyperTalk script -----
  615. on mouseUp
  616.   ask "Get What?"
  617.   put "get" && it & return into holder
  618.   put holder after field "script-it" of card "main card"
  619. end mouseUp
  620.  
  621.  
  622.  
  623. -- part 29 (button)
  624. -- low flags: 00
  625. -- high flags: 0000
  626. -- rect: left=203 top=180 right=195 bottom=261
  627. -- title width / last selected line: 0
  628. -- icon id / first selected line: 0 / 0
  629. -- text alignment: 1
  630. -- font id: 0
  631. -- text size: 12
  632. -- style flags: 0
  633. -- line height: 16
  634. -- part name: global
  635. ----- HyperTalk script -----
  636. on mouseUp
  637.   ask "Global What?"
  638.   put "global" && it & return into holder
  639.   put holder after field "script-it" of card "main card"
  640. end mouseUp
  641.  
  642.  
  643.  
  644. -- part 30 (button)
  645. -- low flags: 00
  646. -- high flags: 0000
  647. -- rect: left=209 top=201 right=217 bottom=257
  648. -- title width / last selected line: 0
  649. -- icon id / first selected line: 0 / 0
  650. -- text alignment: 1
  651. -- font id: 0
  652. -- text size: 12
  653. -- style flags: 0
  654. -- line height: 16
  655. -- part name: go
  656. ----- HyperTalk script -----
  657. on mouseUp
  658.   ask "Where shall we go?"
  659.   put "go" && it & return into holder
  660.   put holder after field "script-it" of card "main card"
  661. end mouseUp
  662.  
  663.  
  664.  
  665. -- part 31 (button)
  666. -- low flags: 00
  667. -- high flags: 0000
  668. -- rect: left=203 top=223 right=236 bottom=259
  669. -- title width / last selected line: 0
  670. -- icon id / first selected line: 0 / 0
  671. -- text alignment: 1
  672. -- font id: 0
  673. -- text size: 12
  674. -- style flags: 0
  675. -- line height: 16
  676. -- part name: hide
  677. ----- HyperTalk script -----
  678. on mouseUp
  679.   global holder
  680.   put "hide " into holder
  681.   visual effect wipe right
  682.   push this card
  683.   go to card "hide items"
  684. end mouseUp
  685.  
  686.  
  687.  
  688.  
  689. -- part 32 (button)
  690. -- low flags: 00
  691. -- high flags: 0000
  692. -- rect: left=196 top=242 right=258 bottom=265
  693. -- title width / last selected line: 0
  694. -- icon id / first selected line: 0 / 0
  695. -- text alignment: 1
  696. -- font id: 0
  697. -- text size: 12
  698. -- style flags: 0
  699. -- line height: 16
  700. -- part name: multiply
  701. ----- HyperTalk script -----
  702. on mouseUp
  703.   ask "Multiply what?"
  704.   put it && "by" into holder
  705.   ask "By what?"
  706.   put it into number
  707.   put "multiply" && holder && number & return after field "script-it" of card "main card"
  708. end mouseUp
  709.  
  710.  
  711.  
  712. -- part 33 (button)
  713. -- low flags: 00
  714. -- high flags: 0000
  715. -- rect: left=286 top=137 right=152 bottom=358
  716. -- title width / last selected line: 0
  717. -- icon id / first selected line: 0 / 0
  718. -- text alignment: 1
  719. -- font id: 0
  720. -- text size: 12
  721. -- style flags: 0
  722. -- line height: 16
  723. -- part name: play
  724. ----- HyperTalk script -----
  725. on mouseUp
  726.   global holder,speed
  727.   ask "Play What?"
  728.   put "play" && quote & it & quote into holder
  729.   answer "Change Tempo?" with "Sure!" or "Fine as is"
  730.   if it is "sure!" then
  731.     ask "Enter Tempo:" with "100"
  732.     put "tempo" && it into speed
  733.   else
  734.     put holder after field "script-it" of card "main card"
  735.     exit mouseUp
  736.   end if
  737.   answer "Notes?" with "Yes" or "No"
  738.   if it is "Yes" then
  739.     ask"Enter Notes:"
  740.     put it into notes
  741.   end if
  742.   put holder && speed && notes & return after field "script-it" of card "main card"
  743. end mouseUp
  744.  
  745.  
  746.  
  747.  
  748.  
  749. -- part 35 (button)
  750. -- low flags: 00
  751. -- high flags: 0000
  752. -- rect: left=284 top=157 right=172 bottom=358
  753. -- title width / last selected line: 0
  754. -- icon id / first selected line: 0 / 0
  755. -- text alignment: 1
  756. -- font id: 0
  757. -- text size: 12
  758. -- style flags: 0
  759. -- line height: 16
  760. -- part name: pop card
  761. ----- HyperTalk script -----
  762. on mouseUp
  763.   answer "Pop into container?" with "Yup" or "Heck No"
  764.   if it is "Yup" then
  765.     ask "Container's Name:"
  766.     put "pop card into " & it & return into holder
  767.   else
  768.     put "pop card" & return into holder
  769.   end if
  770.   put  holder after field "script-it" of card "main card"
  771. end mouseUp
  772.  
  773.  
  774.  
  775.  
  776. -- part 36 (button)
  777. -- low flags: 00
  778. -- high flags: 0000
  779. -- rect: left=281 top=180 right=195 bottom=366
  780. -- title width / last selected line: 0
  781. -- icon id / first selected line: 0 / 0
  782. -- text alignment: 1
  783. -- font id: 0
  784. -- text size: 12
  785. -- style flags: 0
  786. -- line height: 16
  787. -- part name: push card
  788. ----- HyperTalk script -----
  789. on mouseUp
  790.   answer "Which card to push?" with "Recent" or "This One"
  791.   if it is "recent" then put "push recent card" & return into holder else put "push this card" & return into holder
  792.   put  holder after field "script-it" of card "main card"
  793. end mouseUp
  794.  
  795.  
  796.  
  797. -- part 37 (button)
  798. -- low flags: 00
  799. -- high flags: 0000
  800. -- rect: left=302 top=200 right=217 bottom=345
  801. -- title width / last selected line: 0
  802. -- icon id / first selected line: 0 / 0
  803. -- text alignment: 1
  804. -- font id: 0
  805. -- text size: 12
  806. -- style flags: 0
  807. -- line height: 16
  808. -- part name: put
  809. ----- HyperTalk script -----
  810. on mouseUp
  811.   ask "Put what?"
  812.   put "put" && it into holder
  813.   ask "Into where?"
  814.   put holder && "into" &&it & return after field "script-it" of card "main card"
  815. end mouseUp
  816.  
  817.  
  818.  
  819. -- part 38 (button)
  820. -- low flags: 00
  821. -- high flags: 0000
  822. -- rect: left=301 top=223 right=238 bottom=349
  823. -- title width / last selected line: 0
  824. -- icon id / first selected line: 0 / 0
  825. -- text alignment: 1
  826. -- font id: 0
  827. -- text size: 12
  828. -- style flags: 0
  829. -- line height: 16
  830. -- part name: return
  831. ----- HyperTalk script -----
  832. on mouseUp
  833.   global type
  834.   if type is not "function" then
  835.     beep
  836.     answer "Sorry, but this can only be used in a function."
  837.   else
  838.     put "return " & return after field "script-it" of card "main card"
  839.   end if
  840. end mouseUp
  841.  
  842.  
  843.  
  844. -- part 39 (button)
  845. -- low flags: 00
  846. -- high flags: 0000
  847. -- rect: left=300 top=243 right=257 bottom=351
  848. -- title width / last selected line: 0
  849. -- icon id / first selected line: 0 / 0
  850. -- text alignment: 1
  851. -- font id: 0
  852. -- text size: 12
  853. -- style flags: 0
  854. -- line height: 16
  855. -- part name: send
  856. ----- HyperTalk script -----
  857. on mouseUp
  858.   ask "Send What?"
  859.   put it && "to" into holder
  860.   ask "To Where?"
  861.   put "send" && holder && it & return after field "script-it" of card "main card"
  862.  
  863. end mouseUp
  864.  
  865.  
  866.  
  867. -- part 40 (button)
  868. -- low flags: 00
  869. -- high flags: 0000
  870. -- rect: left=401 top=158 right=172 bottom=443
  871. -- title width / last selected line: 0
  872. -- icon id / first selected line: 0 / 0
  873. -- text alignment: 1
  874. -- font id: 0
  875. -- text size: 12
  876. -- style flags: 0
  877. -- line height: 16
  878. -- part name: sort
  879. ----- HyperTalk script -----
  880. on mouseUp
  881.   answer "Sort in what order?" with "Ascending" or "Descending"
  882.   put "sort" && it & " " into holder
  883.   answer "Usual text sort?" with "Yes" or "No"
  884.   if it is "Yes" then
  885.     put "by " & return after holder
  886.   else
  887.     answer "What type of sort?" with "numeric" or "dateTime" or "international"
  888.     put it && "by" && return after holder
  889.   end if
  890.   put holder after field "script-it" of card "main card"
  891. end mouseUp
  892.  
  893.  
  894.  
  895. -- part 41 (button)
  896. -- low flags: 00
  897. -- high flags: 0000
  898. -- rect: left=399 top=137 right=153 bottom=443
  899. -- title width / last selected line: 0
  900. -- icon id / first selected line: 0 / 0
  901. -- text alignment: 1
  902. -- font id: 0
  903. -- text size: 12
  904. -- style flags: 0
  905. -- line height: 16
  906. -- part name: show
  907. ----- HyperTalk script -----
  908. on mouseUp
  909.   global holder
  910.   put "show " into holder
  911.   visual effect wipe right
  912.   push this card
  913.   go to card "show Items"
  914. end mouseUp
  915.  
  916.  
  917.  
  918. -- part 42 (button)
  919. -- low flags: 00
  920. -- high flags: 0000
  921. -- rect: left=386 top=180 right=196 bottom=458
  922. -- title width / last selected line: 0
  923. -- icon id / first selected line: 0 / 0
  924. -- text alignment: 1
  925. -- font id: 0
  926. -- text size: 12
  927. -- style flags: 0
  928. -- line height: 16
  929. -- part name: subtract
  930. ----- HyperTalk script -----
  931. on mouseUp
  932.   ask "Subtract what?"
  933.   put it into number
  934.   ask "From container:"
  935.   put it into holder
  936.   put "subtract" && number && "from" && holder & return after field "Script-it"
  937. end mouseUp
  938.  
  939.  
  940.  
  941. -- part 43 (button)
  942. -- low flags: 00
  943. -- high flags: 0000
  944. -- rect: left=399 top=201 right=218 bottom=447
  945. -- title width / last selected line: 0
  946. -- icon id / first selected line: 0 / 0
  947. -- text alignment: 1
  948. -- font id: 0
  949. -- text size: 12
  950. -- style flags: 0
  951. -- line height: 16
  952. -- part name: type
  953. ----- HyperTalk script -----
  954. on mouseUp
  955.   ask "Type what?"
  956.   if it is empty then exit mouseUp
  957.   put "type" && quote & it & quote & return after field "script-it" of card"main card"
  958. end mouseUp
  959.  
  960.  
  961.  
  962. -- part 44 (button)
  963. -- low flags: 00
  964. -- high flags: 0000
  965. -- rect: left=374 top=222 right=240 bottom=472
  966. -- title width / last selected line: 0
  967. -- icon id / first selected line: 0 / 0
  968. -- text alignment: 1
  969. -- font id: 0
  970. -- text size: 12
  971. -- style flags: 0
  972. -- line height: 16
  973. -- part name: visual effect
  974. ----- HyperTalk script -----
  975. on mouseUp
  976.   global holder
  977.   put "visual effect " into holder
  978.   visual effect dissolve
  979.   push this card
  980.   go to card "visuals"
  981. end mouseUp
  982.  
  983.  
  984.  
  985. -- part 45 (button)
  986. -- low flags: 00
  987. -- high flags: 0000
  988. -- rect: left=400 top=244 right=262 bottom=442
  989. -- title width / last selected line: 0
  990. -- icon id / first selected line: 0 / 0
  991. -- text alignment: 1
  992. -- font id: 0
  993. -- text size: 12
  994. -- style flags: 0
  995. -- line height: 16
  996. -- part name: wait
  997. ----- HyperTalk script -----
  998. on mouseUp
  999.   answer "What kind of wait command?" with "for time" or "until" or "while"
  1000.   put it into type
  1001.   if type is "until" then
  1002.     ask "Wait until what?"
  1003.     put it into what
  1004.     put "wait" && type && what into holder
  1005.     put holder & return after field "script-it" of card "main card"
  1006.     exit mouseUp
  1007.   end if
  1008.   if type is "For time" then
  1009.     answer "Wait for which?" with "ticks" or "seconds"
  1010.     if it is "ticks" then
  1011.       ask "Enter number of ticks to wait:"
  1012.       put "wait" && it into holder
  1013.       put holder & return after field "script-it" of card "main card"
  1014.       exit mouseUp
  1015.     else
  1016.       ask "Enter number of seconds to wait for:"
  1017.       put "wait" && it && "seconds" into holder
  1018.       put holder & return after field "script-it" of card "main card"
  1019.       exit mouseUp
  1020.     end if
  1021.   else
  1022.     ask "Wait while what?"
  1023.     put "wait while " & it into holder
  1024.     put holder & return after field "script-it" of card "main card"
  1025.   end if
  1026. end mouseUp
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033. -- part 47 (field)
  1034. -- low flags: 80
  1035. -- high flags: 0004
  1036. -- rect: left=106 top=131 right=249 bottom=417
  1037. -- title width / last selected line: 0
  1038. -- icon id / first selected line: 0 / 0
  1039. -- text alignment: 1
  1040. -- font id: 5
  1041. -- text size: 14
  1042. -- style flags: 1024
  1043. -- line height: 18
  1044. -- part name: info
  1045. ----- HyperTalk script -----
  1046.  
  1047.  
  1048.  
  1049.  
  1050. -- part 48 (button)
  1051. -- low flags: 00
  1052. -- high flags: 0000
  1053. -- rect: left=26 top=300 right=320 bottom=74
  1054. -- title width / last selected line: 0
  1055. -- icon id / first selected line: 0 / 0
  1056. -- text alignment: 1
  1057. -- font id: 0
  1058. -- text size: 12
  1059. -- style flags: 0
  1060. -- line height: 16
  1061. -- part name: drag
  1062. ----- HyperTalk script -----
  1063. on mouseUp
  1064.   ask "Drag from where?"
  1065.   put it into from
  1066.   ask "To where?"
  1067.   put it into to
  1068.   put "drag from " & from && "to " & to & return after field "script-it"
  1069. end mouseUp
  1070.  
  1071.  
  1072.  
  1073. -- part 49 (button)
  1074. -- low flags: 00
  1075. -- high flags: 0000
  1076. -- rect: left=114 top=301 right=318 bottom=195
  1077. -- title width / last selected line: 0
  1078. -- icon id / first selected line: 0 / 0
  1079. -- text alignment: 1
  1080. -- font id: 0
  1081. -- text size: 12
  1082. -- style flags: 0
  1083. -- line height: 16
  1084. -- part name: reset paint
  1085. ----- HyperTalk script -----
  1086. on mouseUp
  1087.   put "reset paint" & return after field "script-it" of card "main card"
  1088. end mouseUp
  1089.  
  1090.  
  1091.  
  1092. -- part 50 (button)
  1093. -- low flags: 00
  1094. -- high flags: 0000
  1095. -- rect: left=369 top=281 right=297 bottom=416
  1096. -- title width / last selected line: 0
  1097. -- icon id / first selected line: 0 / 0
  1098. -- text alignment: 1
  1099. -- font id: 0
  1100. -- text size: 12
  1101. -- style flags: 0
  1102. -- line height: 16
  1103. -- part name: open
  1104. ----- HyperTalk script -----
  1105. on mouseUp
  1106.   ask "Name of file to be opened?"
  1107.   if it is empty then exit mouseUp
  1108.   put "open file" && quote & it & quote & return after field "script-it" of card "main card"
  1109. end mouseUp
  1110.  
  1111.  
  1112.  
  1113. -- part 51 (button)
  1114. -- low flags: 00
  1115. -- high flags: 0000
  1116. -- rect: left=371 top=298 right=316 bottom=419
  1117. -- title width / last selected line: 0
  1118. -- icon id / first selected line: 0 / 0
  1119. -- text alignment: 1
  1120. -- font id: 0
  1121. -- text size: 12
  1122. -- style flags: 0
  1123. -- line height: 16
  1124. -- part name: close
  1125. ----- HyperTalk script -----
  1126. on mouseUp
  1127.   ask "Name of file to be closed?"
  1128.   if it is empty then exit mouseUp
  1129.   put "close file" && quote & it & quote & return after field "script-it" of card "main card"
  1130. end mouseUp
  1131.  
  1132.  
  1133.  
  1134. -- part 52 (button)
  1135. -- low flags: 00
  1136. -- high flags: 0000
  1137. -- rect: left=433 top=280 right=297 bottom=471
  1138. -- title width / last selected line: 0
  1139. -- icon id / first selected line: 0 / 0
  1140. -- text alignment: 1
  1141. -- font id: 0
  1142. -- text size: 12
  1143. -- style flags: 0
  1144. -- line height: 16
  1145. -- part name: read
  1146. ----- HyperTalk script -----
  1147. on mouseUp
  1148.   ask "Name of file to read from:"
  1149.   put "read from file" && quote & it & quote into holder
  1150.   if it is empty then exit mouseUp
  1151.   answer "How should the read end?" with "A Character" or "No. Chars"
  1152.   if it is "A Character" then put " until" after holder else put " for " after holder
  1153.   put holder & return after field "Script-it"
  1154. end mouseUp
  1155.  
  1156.  
  1157.  
  1158. -- part 53 (button)
  1159. -- low flags: 00
  1160. -- high flags: 0000
  1161. -- rect: left=435 top=299 right=316 bottom=477
  1162. -- title width / last selected line: 0
  1163. -- icon id / first selected line: 0 / 0
  1164. -- text alignment: 1
  1165. -- font id: 0
  1166. -- text size: 12
  1167. -- style flags: 0
  1168. -- line height: 16
  1169. -- part name: write
  1170. ----- HyperTalk script -----
  1171. on mouseUp
  1172.   ask "Enter Field name to write from:"
  1173.   if it is empty then exit mouseUp
  1174.   put "field" && quote & it & quote into feeld
  1175.   ask "Enter name of file to write to:"
  1176.   put "to file" && quote & it & quote into fyle
  1177.   put "write" && feeld && fyle & return after field "script-it" of card "main card"
  1178. end mouseUp
  1179.  
  1180.  
  1181.  
  1182. -- part 57 (button)
  1183. -- low flags: 00
  1184. -- high flags: 8003
  1185. -- rect: left=378 top=67 right=89 bottom=478
  1186. -- title width / last selected line: 0
  1187. -- icon id / first selected line: 0 / 0
  1188. -- text alignment: 1
  1189. -- font id: 0
  1190. -- text size: 12
  1191. -- style flags: 0
  1192. -- line height: 16
  1193. -- part name: Go My Stack
  1194. ----- HyperTalk script -----
  1195. on mouseUp
  1196.   put FileName ("STAK") into newStack
  1197.   if newStack is not empty then
  1198.     visual effect dissolve
  1199.     go newStack
  1200.   end if
  1201. end mouseUp
  1202.  
  1203.  
  1204.  
  1205. -- part contents for card part 16
  1206. ----- text -----
  1207. browse    button    field    select    lasso
  1208. pencil       brush     eraser  line       bucket
  1209. oval         curve      text      spray[can]
  1210.         rect[angle]                    poly[gon]
  1211.   round rect[angle]      reg[ular] poly[gon]
  1212.  
  1213.  
  1214. -- part contents for card part 47
  1215. ----- text -----
  1216. Auto-Scripter
  1217. as adapted by
  1218. Gavin Young
  1219. from
  1220. Dan Shafer's book
  1221. "HyperTalk Programming"
  1222.  
  1223.  
  1224.  
  1225.  
  1226.  
  1227.